home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / Third Party Demos / Networking / Timbuktu⁄Remote / Timbuktu⁄Remote™ Tour / Timbuktu_Remote™ Tour / card_12012.txt < prev    next >
Text File  |  1989-07-19  |  3KB  |  137 lines
  1. -- card: 12012 from stack: in
  2. -- bmap block id: 12351
  3. -- flags: 0000
  4. -- background id: 2758
  5. -- name: Tour Menu
  6. ----- HyperTalk script -----
  7. -- Copyright ¬© 1988,1989  Farallon Computing, Inc.  All rights reserved.
  8.  
  9. on openCard
  10.   global selfRunning
  11.   hide msg
  12.   show card button "Cover1" of card "Title"
  13.   if selfRunning is true then
  14.     --reset self-running check box
  15.     set hilite of card button "self-running" of card "Title" to false
  16.     put false into selfRunning
  17.     wait 2 secs
  18.     click at the loc of card button "Features"
  19.     wait 5 sec
  20.     repeat 7 times
  21.       click at the loc of card button "More"
  22.       wait 5 sec
  23.     end repeat
  24.     click at the loc of card button "Return"
  25.     wait 45 ticks
  26.     click at the loc of card button "Connection"
  27.     wait 5 sec
  28.     click at the loc of card button "Play Tape"
  29.     wait 45 ticks
  30.     click at the loc of card button "Return"
  31.     wait 45 ticks
  32.     click at the loc of card button "At Work"
  33.     repeat 4 times
  34.       click at loc of card button "more"
  35.       wait 5 sec
  36.     end repeat
  37.     click at the loc of card button "Return"
  38.   end if
  39. end openCard
  40.  
  41.  
  42.  
  43. -- part 13 (button)
  44. -- low flags: 00
  45. -- high flags: 2000
  46. -- rect: left=439 top=284 right=336 bottom=506
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 0 / 0
  49. -- text alignment: 1
  50. -- font id: 0
  51. -- text size: 12
  52. -- style flags: 0
  53. -- line height: 16
  54. -- part name: More
  55. ----- HyperTalk script -----
  56. on mouseUp
  57.   visual dissolve
  58.   go prev
  59. end mouseUp
  60.  
  61.  
  62.  
  63. -- part 15 (field)
  64. -- low flags: 01
  65. -- high flags: 0000
  66. -- rect: left=441 top=157 right=189 bottom=504
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 0 / 0
  69. -- text alignment: 0
  70. -- font id: 3
  71. -- text size: 12
  72. -- style flags: 0
  73. -- line height: 16
  74. -- part name: Button Block
  75.  
  76.  
  77. -- part 16 (button)
  78. -- low flags: 00
  79. -- high flags: 2000
  80. -- rect: left=1 top=114 right=338 bottom=152
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 0 / 0
  83. -- text alignment: 1
  84. -- font id: 0
  85. -- text size: 12
  86. -- style flags: 0
  87. -- line height: 16
  88. -- part name: Features
  89. ----- HyperTalk script -----
  90. on mouseUp
  91.   visual dissolve
  92.   go to card id 3034
  93. end mouseUp
  94.  
  95.  
  96.  
  97.  
  98. -- part 17 (button)
  99. -- low flags: 00
  100. -- high flags: 2000
  101. -- rect: left=153 top=114 right=338 bottom=291
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 0 / 0
  104. -- text alignment: 1
  105. -- font id: 0
  106. -- text size: 12
  107. -- style flags: 0
  108. -- line height: 16
  109. -- part name: Connection
  110. ----- HyperTalk script -----
  111. on mouseUp
  112.   visual dissolve
  113.   go card "Chat"
  114. end MouseUp
  115.  
  116.  
  117.  
  118.  
  119. -- part 18 (button)
  120. -- low flags: 00
  121. -- high flags: 2000
  122. -- rect: left=292 top=114 right=339 bottom=435
  123. -- title width / last selected line: 0
  124. -- icon id / first selected line: 0 / 0
  125. -- text alignment: 1
  126. -- font id: 0
  127. -- text size: 12
  128. -- style flags: 0
  129. -- line height: 16
  130. -- part name: At Work
  131. ----- HyperTalk script -----
  132. on mouseUp
  133.   visual dissolve
  134.   go to card "At Work Section"
  135. end mouseUp
  136.  
  137.